setmacro text-format 0 (pos-line \$indcol first push pos downadd while !r (pos-line \$parcol downadd first) sety pop pos suby dec y gom repeat \$y (ifelse r join break) firstnb ifelse r (col +\$indcol) reformat)
setmacro text-return 0 (if !l (split down) insline down text-format)
setmacro text_tab 0 (ifelse cb (indent b -255 indent b t goto start firstnb a-[ reformat) (indent . .t firstnb))